home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Shareware City / Developers / RLaB / rlib / hilb.r < prev    next >
Encoding:
Text File  |  1994-09-23  |  344 b   |  22 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2. //
  3. //  Syntax:    hilb ( N )
  4.  
  5. //  Description:
  6.  
  7. //  Generate a NxN Hilbert matrix.
  8.  
  9. //-------------------------------------------------------------------//
  10.  
  11. hilb = function(n)
  12. {
  13.   for(i in 1:n) 
  14.   {
  15.     for(j in 1:n) 
  16.     {
  17.       h[i;j] = 1/(i+j-1);
  18.     }
  19.   }
  20.   return h;
  21. };
  22.